﻿''' <summary>
''' 用户账套对应类clsUserLedger
''' 对应表S_UserLedger
''' </summary>
Public Class ClsUserLedger
    'S_UserLedger

    Private mUserLedgerId As Integer
    Private mUserId As Integer
    Private mLedgerId As Integer
    Private mUserRightVoucher As Boolean
    Private mUserRightLedger As Boolean
    Private mUserRightReport As Boolean
    Private mUserRightFinancialSetup As Boolean
    Private mUserRightSysSetup As Boolean
    Private mUserRightSysManage As Boolean

    Public Property UserLedgerId As Integer
        Get
            Return mUserLedgerId
        End Get
        Set(value As Integer)
            mUserLedgerId = value
        End Set
    End Property

    Public Property UserId As Integer
        Get
            Return mUserId
        End Get
        Set(value As Integer)
            mUserId = value
        End Set
    End Property

    Public Property LedgerId As Integer
        Get
            Return mLedgerId
        End Get
        Set(value As Integer)
            mLedgerId = value
        End Set
    End Property

    Public Property UserRightVoucher As Boolean
        Get
            Return mUserRightVoucher
        End Get
        Set(value As Boolean)
            mUserRightVoucher = value
        End Set
    End Property

    Public Property UserRightLedger As Boolean
        Get
            Return mUserRightLedger
        End Get
        Set(value As Boolean)
            mUserRightLedger = value
        End Set
    End Property

    Public Property UserRightReport As Boolean
        Get
            Return mUserRightReport
        End Get
        Set(value As Boolean)
            mUserRightReport = value
        End Set
    End Property

    Public Property UserRightFinancialSetup As Boolean
        Get
            Return mUserRightFinancialSetup
        End Get
        Set(value As Boolean)
            mUserRightFinancialSetup = value
        End Set
    End Property

    Public Property UserRightSysSetup As Boolean
        Get
            Return mUserRightSysSetup
        End Get
        Set(value As Boolean)
            mUserRightSysSetup = value
        End Set
    End Property

    Public Property UserRightSysManage As Boolean
        Get
            Return mUserRightSysManage
        End Get
        Set(value As Boolean)
            mUserRightSysManage = value
        End Set
    End Property
End Class
